void TransposeTSMatrix(TSMatrix  A,  TSMatrix  * B)
{
    
    int  p,q, k ;
    B->mu= A.nu ;
    B->nu= A.mu ;
    B->tu= A.tu ;
    if(B->tu)
    {
        q=1;
        for(k=1; k<=A.nu; k++)
        {
            for(p=1; p<=A.tu; p++)
            {
                if(A.data[p].j==k)
                {
                    B->data[q].i=A.data[p].j;
                    B->data[q].j=A.data[p].i;
                    B->data[q].e=A.data[p].e;
                    q++;
                }
            }
        }
    }
}